CU Amiga Super CD-ROM 17/CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso/CDsupport/GMPlay/Install

Text File | 1997-05-28 | 13KB | 601 lines

;
; GMPlay install script
; ---------------------
; © 1997 by Christian Buchner
;
; $VER: GMPlayInstall (28-May-97)
;

(set @app-name "GMPlay V1.3")

; Set current version and revision

(set myver 1)
(set myrev 3)

; Do not allow Novice User (when running from Shell)

(if (= @user-level 0)
    (set @user-level 1)
)


;=============================================================================
; English strings

(set default_lang 4)

(set #welcomestring "GMPlay V1.3\n--------------\n©1995-97 by Christian Buchner & Alessandro de Luca\nGiftware, any donations welcome!\nPlease support the development of a fine program!\n")
(set #whereprogram "Where shall I install GMPlay?\n A drawer called \"GMPlay\" will be created there.")
(set #installwhat "Please select what parts of the\npackage you want to install.")
(set #install0 "Install documentation (recommended)")
(set #install1 "Install XPK libraries (recommended)")
(set #install2 "Install the 14 bit sound driver (recommended)")
(set #install3 "Install the IFF sound samples (recommended)")
(set #install4 "Install the 14 bit calibration utility")
(set #install5 "Install the example MIDI files")
(set #install6 "Install GMDIR environment variable (recommended)")
(set #copyprogram "Copying GMPlay executable")
(set #wheredocs "Where shall I place the documentation guide?\nPerhaps you prefer the HELP: directory?")
(set #copydocs "Copying documentation guide.")
(set #wherelibs "Where do you want the libraries installed?\nMake sure that there is a LIBS: assign to that directory.")
(set #copyxpk "Copying xpkmaster.library.")
(set #copyshri "Copying xpk SHRI sublibrary.")
(set #copysqsh "Copying xpk SQSH sublibrary.")
(set #wheredrivers "Where do you want to install the sound drivers?")
(set #SDGMDir "In the GMPlay SoundDrivers directory")
(set #SDDevs  "In DEVS:SoundDrivers")
(set #copy14bit "Copying 14 bit sound driver.")

(set #copytones "Copying tone samples (XPK SQSH packed!).")
(set #copydrums "Copying drum samples (XPK SQSH packed!).")
(set #copymaps "Copying map files.")
(set #copycalib "Copying 14 bit calibration utility.")
(set #copymidi "Copying example MIDI files (XPK SHRI packed!).")
(set #addpathvar "Installing GMDIR environment variable.")
(set #savepathvar "Saving GMDIR environment variable in ENVARC:")
(set #gmdirhelp "The GMDIR environment variable will tell\nGMPlay where its program directory is located.\nIf you still have the GM: assign installed\nyou may remove it now. It is no longer needed.\n")
(set #envarchelp "This step will copy the GMDIR environment\nvariable into your ENVARC: directory where\nit is safely stored on hard drive\nin order to survive resets.\n")
(set #endmessage "GMPlay has been successfully installed.\nNote that GMPlay is a CLI-based program.\nPlease read the documentation.\nThen try playing the example songs.\n")

(complete 0)

; Welcome the user

(welcome #welcomestring)



; Find the location of an existing GMPlay installation

(set #GMDir (getassign "GM"))

(if (exists "ENV:GMDIR" (noreq))
    (
        (set #GMDir (getenv "GMDIR"))
    )
)


; remove any slash at the end of #GMDir (if present)

(if (strlen #GMDir)
    (
        (if (= (substr #GMDir (- (strlen #GMDir) 1) 1) '/')
            (
                (set #GMDir (substr #GMDir 0 (- (strlen #GMDir) 1) ) )
            )
        )
    )
)


; Expand the path (and check if directory exists)

(if (strlen #GMDir)
    (
        (set #GMDir (expandpath #GMDir))
    )
)


; Now check the version of the current installation

; default: Create a new installation
(set #InstallChoice 2)

(if (strlen #GMDir)
    (
        (set #GMProg (tackon #GMDir "GMPlay"))

        (if (exists #GMProg)
            (
                (set vernum (getversion #GMProg))
                (set ver (/ vernum 65536) )
                (set rev (- vernum (* ver 65536) ) )

                (message (cat "Found an existing GMPlay installation in\n\n" #GMDir "\n\nInstalled Version: " ver "." rev "\n") )

                (set #Choice0 "Update the old installation")
                (set #Choice1 "Reinstall (parts of) this installation")
                (set #Choice2 "Create a new installation")

                (set #InstallDefault 0)

                (if  (>= rev myrev)
                    (
                        (set #Choice0 "")
                        (set #InstallDefault 1)
                    )
                    (
                        (set #Choice1 "")
                    )
                )

                (set #InstallChoice
                    (askchoice
                        (prompt "Please specify the type of installation")
                        (help @askchoices-help)
                        (choices #Choice0
                             #Choice1
                             #Choice2
                        )
                        (default #InstallDefault)
                    )
                )
            )
        )
    )
)


; Update the old installation

(if (= #InstallChoice 0 )
    (
        (set #BackupDir  (tackon #GMDir "Backup"))
        (set #TablesDir  (tackon #GMDir "Tables"))
        (set #GuideFile  (tackon #GMDir "GMPlay.guide"))
        (set #DriversDir (tackon #GMDir "SoundDrivers"))
        (set #TonesDir   (tackon #GMDir "Tones"))
        (set #DrumsDir   (tackon #GMDir "Drums"))
        (set #ToneMap    (tackon #GMDir "ToneMap"))
        (set #DrumMap    (tackon #GMDir "DrumMap"))
        (makedir #BackupDir)

        (if (exists #TablesDir)
            (
                (run (cat "Delete \"" #TablesDir "\" All Quiet Force")
                    (prompt "Deleting the old Tables directory")
                    (help "This is necessary because the format\nof the tables has changed.\n")
                    (confirm)
                )
            )
        )
        (if (exists #GuideFile)
            (
                (delete #GuideFile
                    (prompt "Deleting obsolete program documentation")
                    (infos)
                    (confirm)
                )
            )
        )
        (if (exists #DriversDir)
            (
                (run (cat "Delete \"" #DriversDir "\" All Quiet Force")
                    (prompt "Deleting the old sound drivers directory")
                    (help "This is necessary because you will\nrequire a new 14 bit sound driver.\nThis will be installed in DEVS:SoundDrivers")
                    (confirm)
                )
            )
        )
        (if (exists #TonesDir)
            (
                (set #Choice
                    (askchoice
                        (prompt "Delete or backup the old tones?")
                        (help @askchoices-help)
                        (choices "Delete"
                             "Backup"
                        )
                        (default 0)
                    )
                )
                (if (= #Choice 0)
                    (
                        (run (cat "Delete \"" #TonesDir "\" All Quiet Force")
                            (prompt "Deleting the old tones directory")
                            (help "You will get new and better\ntones with the current release.\n");
                            (confirm)
                        )
                    )
                )
                (if (= #Choice 1)
                    (
                        (run (cat "Rename \"" #TonesDir "\" To " #BackupDir "/")
                            (prompt "Backing up the old tones directory")
                            (help "You will find them in the Backup drawer.\n");
                            (confirm)
                        )
                    )
                )
            )
        )
        (if (exists #DrumsDir)
            (
                (set #Choice
                    (askchoice
                        (prompt "Delete or backup the old drums?")
                        (help @askchoices-help)
                        (choices "Delete"
                             "Backup"
                        )
                        (default 0)
                    )
                )
                (if (= #Choice 0)
                    (
                        (run (cat "Delete \"" #DrumsDir "\" All Quiet Force")
                            (prompt "Deleting the old drums directory")
                            (help "You will get new and better\ndrums with the current release.\n");
                            (confirm)
                        )
                    )
                )
                (if (= #Choice 1)
                    (
                        (run (cat "Rename \"" #DrumsDir "\" To " #BackupDir "/")
                            (prompt "Backing up the old drums directory")
                            (help "You will find them in the Backup drawer.\n");
                            (confirm)
                        )
                    )
                )
            )
        )
        (if (OR (exists #ToneMap) (exists #DrumMap) )
            (
                (set #Choice
                    (askchoice
                        (prompt "Delete or backup the old mapfiles?")
                        (help @askchoices-help)
                        (choices "Delete"
                             "Backup"
                        )
                        (default 0)
                    )
                )
                (if (= #Choice 0)
                    (
                        (run (cat "Delete \"" #DrumMap "\" \"" #ToneMap "\" Quiet Force")
                            (prompt "Deleting the mapfiles")
                            (help "You will get new and better\nmapfiles with the current release.\n");
                            (confirm)
                        )
                    )
                )
                (if (= #Choice 1)
                    (
                        (run (cat "Rename \"" #ToneMap  "\" \"" #DrumMap "\" To " #BackupDir "/")
                            (prompt "Backing up the mapfiles")
                            (help "You will find them in the Backup drawer.\n");
                            (confirm)
                        )
                    )
                )
            )
        )
    )
)


; Ask for target directory (only if new installation desired)

(if (= #InstallChoice 2 )
    (
        (set #TargetDir
            (askdir
                (prompt #whereprogram)
                (help @askdir-help)
                (default
                    (expandpath
                        (if (exists "Music:" (noreq))
                            "Music:"
                        (if (exists "Sound:" (noreq))
                             "Sound:"
                        (if (exists "Work:Music" (noreq))
                             "Work:Music"
                        (if (exists "Work:Sound" (noreq))
                             "Work:Sound"
                        (if (exists "Work:" (noreq))
                             "Work:"
                        "SYS:" )))))
                    )
                )
                (newpath)
            )
        )
        (set #DestDir (tackon #TargetDir "GMPlay"))
        (makedir #DestDir (infos))
    )

    ; ELSE: Install into existing directory!

    (
        (set #DestDir #GMDir)
    )
)


(complete 10)

; Ask what parts of the program shall be installed

(set #InstFlags
    (askoptions
        (prompt #installwhat)
        (help @askoptions-help)
        (choices #install0
             #install1
             #install2
             #install3
             #install4
             #install5
             #install6
        )
    )
)

(complete 20)

; Copy GMPlay main program

(copyfiles
    (prompt #copyprogram)
    (help @copyfiles-help)
    (source "GMPlay")
    (dest #DestDir)
    (infos)
    (confirm)
)

(complete 30)

; Install GMPlay documentation

(if (BITAND #InstFlags 1)
    (
        (set #DocsDir
            (askdir
                (prompt #wheredocs)
                (help @askdir-help)
                (default #DestDir)
                (newpath)
            )
        )

        (makedir #DocsDir)

        (copyfiles
            (prompt #copydocs)
            (help @copyfiles-help)
            (source "GMPlay-Eng.guide")
            (dest #DocsDir)
            (infos)
            (confirm)
        )
    )
)

(complete 40)

; Install XPK libraries

(if (BITAND #InstFlags 2)
    (
        (set #LibsDir
            (askdir
                (prompt #wherelibs)
                (help @askdir-help)
                (default "LIBS:")
                (newpath)
            )
        )

        (set #CompDir (tackon #LibsDir "compressors"))
        (makedir #LibsDir)
        (makedir #CompDir)

        (copylib
            (prompt #copyxpk)
            (help @copylib-help)
            (source "Libs/xpkmaster.library")
            (dest #LibsDir)
            (confirm)
        )

        (copylib
            (prompt #copyshri)
            (help @copylib-help)
            (source "Libs/compressors/xpkSHRI.library")
            (dest #CompDir)
            (confirm)
        )

        (copylib
            (prompt #copysqsh)
            (help @copylib-help)
            (source "Libs/compressors/xpkSQSH.library")
            (dest #CompDir)
            (confirm)
        )
    )
)


(complete 50)

; Query for sounddriver destination directory

(if (BITAND #InstFlags 4)
    (
        (set #DriverSelect
            (askchoice
                (prompt #wheredrivers)
                (help @askchoices-help)
                (choices #SDGMDir
                     #SDDevs)
                (default 1)
            )
        )

        (if (= #DriverSelect 0)
            (
                (set #DriverDir (tackon #DestDir "SoundDrivers"))
                (makedir #DriverDir)
            )
        )

        (if (= #DriverSelect 1)
            (
                (set #DriverDir "DEVS:SoundDrivers")
                (makedir #DriverDir)
            )
        )
    )
)

; Install 14 bit sound driver

(if (BITAND #InstFlags 4)
    (
        (copylib
            (prompt #copy14bit)
            (help @copylib-help)
            (source "SoundDrivers/14bit.driver")
            (dest #DriverDir)
            (confirm)
            (infos)
        )
    )
)

(complete 60)

; Install Tones, Drums, Mapfiles

(if (BITAND #InstFlags 8)
    (
        (copyfiles
            (prompt #copytones)
            (help @copyfiles-help)
            (source "")
            (pattern "Tones")
            (dest #DestDir)
            (confirm)
        )

        (copyfiles
            (prompt #copydrums)
            (help @copyfiles-help)
            (source "")
            (pattern "Drums")
            (dest #DestDir)
            (confirm)
        )

        (copyfiles
            (prompt #copymaps)
            (help @copyfiles-help)
            (source "")
            (pattern "MapFiles")
            (dest #DestDir)
            (confirm)
        )
    )
)

(complete 70)

; Copy 14 bit calibration program

(if (BITAND #InstFlags 16)
    (
        (copyfiles
            (prompt #copycalib)
            (help @copyfiles-help)
            (source "14Bit_Calibration")
            (dest #DestDir)
            (infos)
            (confirm)
        )
    )
)

(complete 80)

; Copy example MIDI files

(if (BITAND #InstFlags 32)
    (
        (copyfiles
            (prompt #copymidi)
            (help @copyfiles-help)
            (source "")
            (pattern "MIDI-Files")
            (dest #DestDir)
            (infos)
            (confirm)
        )
    )
)

(complete 90)

; Set GMDIR environment variable

(if (BITAND #InstFlags 64)
    (
        (run (cat "SetEnv GMDIR \"" #DestDir "\"")
            (prompt #addpathvar)
            (help #gmdirhelp)
            (confirm)
        )
        (run (cat "Copy ENV:GMDIR ENVARC:")
            (prompt #savepathvar)
            (help #envarchelp)
            (confirm)
        )
    )
)


(complete 100)

; Tell the user that the assign is no longer needed.

(if (getassign "GM")
    (
        (if    (askbool
                (prompt "Remove the obsolete GM: assign\nfrom your user-startup?")
                (help "You do no longer require the GM: assign.\nIt has been replaced with the GMDIR variable.\n")
            )
            (
                (startup "GMPlay"
                    (prompt "Deleting the assign from your user-startup")
                    (help @startup-help)
                    (command "; GMPlay's GM: assign has been removed")
                )
            )
        )
    )
)

; Say goodbye to the user

(message #endmessage)
(exit (quiet))

; End of File